UC知道急! vb中 m = "select max(编号) from 一卡通信息" 提示max未定义
来源：百度知道 编辑：UC知道 时间：2024/06/20 04:22:12
vb编程,需要找出"编号(数据类型为整型)"那一列的最大值,然后加1;用m = select max(编号) from 一卡通信息 提示缺少表达式,改为m = "select max(编号) from 一卡通信息"运行时提示max未定义,数据库已连接,表名和列名都正确,如何改正,急求高手帮助!!
set rs = OpenRecordset("select max(编号) from 一卡通信息",conn)
m=rs(0)
Public Function OpenRecordset(ByVal strSql As String, ByVal AdoConn As ADODB.Connection) As ADODB.Recordset
Dim rs As New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open strSql, AdoConn, , , adCmdText
End With
Set OpenRecordset = rs
End Function
不懂